ascb

Address'================================================ =====Function IntToIP (IntValue)P4 = IntValue-Fix (IntValue/256) * 256IntValue = (IntValue-p4)/256P3 = IntValue-Fix (IntValue/256) * 256IntValue = (IntValue-p3)/256P2 = IntValue-Fix (IntValue/256) * 256IntValue = (IntValue-p2)/256P1 = IntValueIntToIP = Cstr (p1) "." Cstr (p2) "." Cstr (p3) "." Cstr (p4)End Function'================================================ ====='Obtain the starting IP address location'========================

Function'================================================ ====='Integer reverse IP Address'================================================ =====Function inttoip (intvalue)P4 = intvalue-fix (intvalue/256) * 256Intvalue = (IntValue-p4)/256P3 = intvalue-fix (intvalue/256) * 256Intvalue = (IntValue-p3)/256P2 = intvalue-fix (intvalue/256) * 256Intvalue = (intvalue-P2)/256P1 = intvalueInttoip = CSTR (P1) "." CSTR (P2) "." CSTR (P3) "." CSTR (P4)End Function'====================================

' Get picture width and height of class, support Jpg,gif,png,bmp 'Class Imgwhinfo Dim ASOPrivate Sub Class_InitializeSet aso=server.createobject ("ADODB. Stream ")ASO. Mode=3ASO. Type=1ASO. OpenEnd SubPrivate Sub Class_TerminateErr.ClearSet aso=nothingEnd Sub Private Function bin2str (Bin)Dim I, StrFor I=1 to LenB (Bin)CLOW=MIDB (bin,i,1)If ASCB (Clow) str = str CHR (ASCB (Clow))ElseI=i+1If I End IfNextBin

' The text watermark processing value assigned to BB, at this time, text watermark no opacity ' ============ Adjust text transparency ================ Set myjpeg = Server.CreateObject ("Persits.jpeg") Myjpeg.openbinary AA Set Logo = Server.CreateObject ("Persits.jpeg") Logo.openbinary BB Myjpeg.drawimage 0,0, Logo, 0.2 ' 0.3 is transparency Cc=myjpeg.binary ' assigns the final result to CC, and you can also generate the target picture. Response. BinaryWrite cc ' converts binary output t

, the text watermark has no opacity.'============== Adjust the text transparency ========================Set MyJpeg = Server. CreateObject ("Persits. Jpeg ")MyJpeg. OpenBinary aaSet Logo = Server. CreateObject ("Persits. Jpeg ")Logo. OpenBinary bbMyJpeg. DrawImage 0.2, Logo, '0. 3 is transparencyCc = MyJpeg. Binary assign the final result to cc, and the target image can also be generated.Response. BinaryWrite CC' will be output to the browser.MyJpeg. Save (server. mappath (paths + filename ))Set

Error resume nextDim varlen, Clow, CCC, skipflag, I, biySkipflag = 0CCC = ""For I = 1 to numClow = midb (binstr, I, 1)If ASCB (Clow) = 0 thenSkipflag = 0'Ccc = NULLElseIf skipflag = 0 thenIf ASCB (Clow)> 127 thenCCC = CCC CHR (ASCW (midb (binstr, I + 1, 1) Clow ))Skipflag = 1ElseCCC = CCC CHR (ASCB (Clow ))End ifElseSkipflag = 0End if End ifNextBin2str = cccE

Upload | No components I studied the no component upload, and made one of the simplest possible ways ----Use 9 lines of code to truly implement no component upload, how to say that spent half a day to write 9 lines of code is a bit of efficiency and results. So I wrote this article. Formsize=request.totalbytes () Formdata=request.binaryread (Formsize) Dataheader=leftb (FORMDATA,INSTRB (FORMDATA,CHRB) AMP;CHRB (10)) Strfiledata=midb (Formdata,lenb (Dataheader), LenB (FormData)-lenb (dataheader

checkfiletype (filename)On Error resume nextCheckfiletype = falseDim fstream, fileext, stamp, IFileext = mid (filename, limit Rev (filename, ".") + 1)Set fstream = server. Createobject ("ADODB. Stream ")Fstream. OpenFstream. type = adtypebinaryFstream. loadfromfile filenameFstream. Position = 0Select case fileextCase "jpg", "Jpeg"Stamp = fstream. Read (2)For I = 0 to 1If ASCB (midb (stamp, I + 1, 1) = JPG (I) Then checkfiletype = true else checkfilet

keytemp as StringDim Key1 as Byte for k = 1 to keytemp = keytemp CStr (Int (RND * (9) + 1)) Next Key1 = CByte (Mid (Keytemp, one, 1) Mid (Keytemp, 1)) for i = 1 to Len (strsource) Strchar = Mid (strsource, I, 1) ' Remove a character from the string to be encrypted Blowdata = AscB (MidB (Strchar, 1, 1)) Xor Key1 ' take characters of low byte and Key1 for XOR operation shigdata =

Upload ' Upload.asp Function Intmin (n,y) If NIntmin=int (N) ElseIf y>0 Then Intmin=int (y) Else Intmin=n End If End Function Function Getformvalue (Name) Dim Formsize,formdata,dataheader,datastart,dataend,formnamestart,formnameend,formname,firstfilter Formsize=request.totalbytes () Formdata=request.binaryread (Formsize) Firstfilter=true For I=1 to Len (Name) TMP=TMPAMP;CHRB (AscB) (Mid (name,i,1)) Next Name=tmp Dataend=0 Datastart=0 Do While formsiz

Here is my GIF image format to determine the size of the GIF image, please give some advice Up.htm Up.asp Formsize = Request.TotalBytes FormData = Request.BinaryRead (formsize) BNCRLF=CHRB (+) ChrB (10) Divider=leftb (FORMDATA,INSTRB (FORMDATA,BNCRLF)-1) DATASTART=INSTRB (Formdata,bncrlf Bncrlf) +4 DATAEND=INSTRB (Datastart+1,formdata,divider)-datastart IMAGE=MIDB (Formdata,datastart,dataend) Head_version = ASCB (MidB (image,1,3)) Head_subversion =

How to judge the size of GIF image Here is my GIF image format to determine the size of the GIF image, please give some advice Up.htm Up.asp Formsize = Request.TotalBytes FormData = Request.BinaryRead (formsize) BNCRLF=CHRB (+) ChrB (10) Divider=leftb (FORMDATA,INSTRB (FORMDATA,BNCRLF)-1) DATASTART=INSTRB (Formdata,bncrlf Bncrlf) +4 DATAEND=INSTRB (Datastart+1,formdata,divider)-datastart IMAGE=MIDB (Formdata,datastart,dataend) Head_version = AS